Tcp-Client-Peer names an undocumented function, with lambda list (OBJECT).
(SETF Tcp-Client-Peer) names an undocumented function, with lambda list (NEW-VALUE OBJECT).